home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Session 4 < prev   
Lisp/Scheme  |  1998-10-26  |  946b  |  43 lines
  1. (initdef)
  2. (defsym a '(b c a))
  3. (defsym b '(f e))
  4. (defsym c '(b a))
  5. (defsym d '(a g))
  6.  
  7. (def-symbol
  8.     instr1 (gen-trans a 4)
  9.     instr2 (gen-trans d 4)
  10.     instr3 (gen-trans c 4)
  11.     instr4 (gen-trans b 4)
  12. )
  13.  
  14. (def-length
  15.     default '1/16
  16. )
  17.  
  18. (def-channel
  19.     instr1 1
  20.     instr2 2
  21.     instr3 3
  22.     instr4 4
  23. )
  24.  
  25. (setq tonals 
  26.     (activate-tonality (whole-tone c 5) (chromatic c 6)))
  27. (setq tonals1 
  28.     (activate-tonality (chromatic c 6) (whole-tone c 5)))
  29.  
  30. (midiport :printer)
  31.  
  32. (def-tempo 120)
  33.  
  34. (compile-song-p "ccl;output:" 1/8 "Session 4"
  35. ;   BARS                |-------|-------|-------|-------|
  36.     changes   tonals   "            .   .  .      .    ."
  37.     changes2  tonals1  "    .   .    .   .  .  .     . ."
  38.     instr1   changes    "--     ----- --- ---    ----- --"
  39.     instr2   changes2   "  ---  ---   -- - --- --- --- --"
  40.     instr3   changes2   "    ---- ---   - - --   --- -- -"
  41.     instr4   changes    "      -----  - - - --  - - - - -" 
  42. )
  43.